home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / sharewar / vbshpdfc / Install.exe / VB Shaped Form Creator.CAB / ShapedForm.frm < prev    next >
Text File  |  2000-04-15  |  1KB  |  33 lines
  1. VERSION 5.00
  2. Begin VB.Form ShapedForm 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "ShapedForm"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   3  'Windows Default
  14. End
  15. Attribute VB_Name = "ShapedForm"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20. Option Explicit
  21. Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  22. Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  23.  
  24. Dim WindowRgn As Long
  25. Private Sub Form_Load()
  26.     WindowRgn = ReadFormRegion(App.Path + "\Shape.dat")
  27.     SetWindowRgn Me.hWnd, WindowRgn, True
  28. End Sub
  29.  
  30. Private Sub Form_Unload(Cancel As Integer)
  31.     DeleteObject WindowRgn
  32. End Sub
  33.